-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 3234
-- card count: 14
-- first card id: 3805
-- list block id: 7379
-- print block id: 4363
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 266880 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on OpenStack
  go to card 1
  global savelevel
  get the userLevel
  put it into saveLevel
  set the userlevel to 5
  hide menuBar
  hide message window
  hide tool window
  hide pattern window
  put false into menuBar
  CHOOSE BROWSE TOOL
  answer "Resume Saved Game?" with "Yes" or "New Game"
  if it contains "Yes" then
    resumeGame
    go to card "Map"
  end if
  if it contains "New" then newGame
end openStack

on saveGame
  global effort,raidNum,bbtime,bbDate,JUSTVISITING,low,med,high,reset
  GLOBAL POINTS,weather,OPENBASE,landtime
  put effort & "," & raidNum & "," & bbtime & "," & bbDate & "," & justVisiting & "," & low & "," & med & "," & high & "," & reset & "," & weather & "," & OPENBASE & "," & landtime into card field "globals" of card "Map"
end SaveGame

on resumeGame
  global effort,raidNum,bbtime,bbDate,JUSTVISITING,high,med,low,reset
  global openbase,landtime
  put item 1 of card field "globals" of card "Map" into effort
  put item 2 of card field "globals" of card "Map" into raidNum
  put item 3 of card field "globals" of card "Map" into bbTime
  put item 4 of card field "globals" of card "Map" into bbDate
  put item 5 of card field "globals" of card "Map" into justVisiting
  put item 6 of card field "globals" of card "Map" into low
  put item 7 of card field "globals" of card "Map" into med
  put item 8 of card field "globals" of card "Map" into high
  put item 9 of card field "globals" of card "Map" into reset
  put item 10 of card field "globals" of card "Map" into weather
  put item 11 of card field "globals" of card "Map" into openbase
  put item 12 of card field "globals" of card "Map" into landtime

end resumeGame
on NewGame
  global effort,raidNum,bbtime,bbDate,JUSTVISITING,reset
  GLOBAL high,med,low,weather
  set the cursor to 4
  show card field "setup" of card 1
  put "CLEAR" into weather
  put weather into card field "weather" of card "Map"
  put "normal" into effort
  put "CITIES.INDUSTRIES" into low
  put "AIRBASES" into med
  put "PORTS. RADARS" into high
  put "AUG 10 1940" into card field "bbDate" of card "Map"
  put "AUG 10 1940" into bbDate
  put "0600" into card field "bbtime" of card "Map"
  put 600 into bbtime
  put "0" into card field "BritScore" of card "map"
  put "0" into card field "gerScore" of card "map"
  put 0 into raidNum
  put "INTELLIGENCE ESTIMATES OF TODAYS LIKELY TARGETS FOLLOWS: " & "NORMAL ACTIVITY OVER PORTS & RADARS. SECONDARY TARGETS: AIRBASES." into line 3 of card field "ultra" of card "map"
  set hilite of button "go" of card "Map" to false
  set hilite of button "rdf" of card "Map" to false
  repeat with i = 1 to 6
    set icon of button id i of card "map" to 27637
  end repeat
  hide button id 42 of card "map"
  hide button id 47 of card "map"
  SET LOCKSCREEN TO TRUE
  PUT 1 INTO JUSTVISITING
  put 1 into reset
  REPEAT WITH X =7 TO 12
    GO TO CARD X
    go back
  END REPEAT
  put empty into justvisiting
  put empty into reset
  GO TO CARD 1
  SET LOCKSCREEN TO FALSE
  hide card field "setup" of card 1
end newGame
on closeStack
  global savelevel
  put savelevel into userlevel
  show menuBar
end closeStack